<!-- <%

dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
If server_v1<>"" Then
	if  mid(server_v1,8,len(server_v2))<>server_v2  then
		Response.Redirect "index.asp"
	end if
End if
dim conn,db
dim connstr
db="Databases/###$@$%.asp" '数据库文件位置


on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
	conn.close
	set conn=nothing
end sub

%> -->
